home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_2 / prok345.zip / PROUTIL.INT < prev    next >
Text File  |  1992-09-05  |  3KB  |  98 lines
  1.  
  2. (*
  3.  * Copyright 1987, 1991 Samuel H. Smith;  All rights reserved
  4.  *
  5.  * This is a component of the ProDoor System.
  6.  * Do not distribute modified versions without my permission.
  7.  * Do not remove or alter this notice or any other copyright notice.
  8.  * If you use this in your own program you must distribute source code.
  9.  * Do not use any of this in a commercial product.
  10.  *
  11.  *  NOTICE: ALL MODIFIED VERSIONS OF THIS PROGRAM _MUST_ BE DISTRIBUTED
  12.  *          WITH SOURCE CODE.  I STRICTLY FORBID THE USE OF ANY NON-
  13.  *          PUBLIC INFORMATION IN MODIFICATIONS.  FOR EXAMPLE, YOU
  14.  *          CANNOT USE CDC PROVIDED INFORMATION FOR PCBOARD 14.5
  15.  *          COMPATIBILITY, SINCE SUCH A VERSION CANNOT BE RELEASED IN
  16.  *          SOURCE CODE.
  17.  *)
  18.  
  19. function expert: boolean;
  20.  
  21. procedure not_understood;
  22. procedure not_available(what: anystring);
  23. procedure file_not_found (name: anystring);
  24. procedure file_missing(where: integer);
  25.  
  26. procedure keypause;
  27.  
  28. function pro_command: anystring;
  29. function pro_title: anystring;
  30. function pro_code: char;
  31. function pro_files: integer;
  32. function pro_mode: transfer_modes;
  33.  
  34. function estimated_time(size: longint): real;
  35.  
  36. procedure open_capture;
  37. procedure close_capture;
  38. procedure flush_capture;
  39.  
  40. procedure clean_playpen;
  41. procedure clean_scratch;
  42.  
  43. procedure disp_margin(left,width: integer);
  44.  
  45. function expdate(yymmdd: string8): string8;     {convert to mm-dd-yy}
  46. function mmddyy_to_yymmdd(mmddyy: string8): string8;
  47. function yymmdd_to_mmddyy(yymmdd: string8): string8;
  48.  
  49. function todays_date_mmddyy: string8;
  50. function todays_date_yymmdd: string8;
  51.  
  52. function dtok(d: double): string8;
  53. function stok(s: single): string8;
  54.  
  55. procedure check_command_line(var command: string);
  56.  
  57. procedure disconnect_warning(left: integer);
  58. procedure check_disconnect_warning;
  59.  
  60. function file_is_new(name: dos_filename): boolean;
  61.  
  62. procedure abort_program(reason: string);
  63. procedure usage (error: anystring);
  64.  
  65. procedure get_dos_name(handle: dos_handle);
  66.  
  67. procedure check_write(handle:  dos_handle;
  68.                       var      buffer;
  69.                       bytes:   word);
  70.  
  71. function check_open(name:     dos_filename;
  72.                     mode:     open_modes;
  73.                     code:     integer):  dos_handle;
  74.  
  75. procedure check_read( handle:   dos_handle;
  76.                       var       buffer;
  77.                       bytes:    word);
  78.  
  79. procedure get_file_record(name:  dos_filename;
  80.                           recn:  word;
  81.                           var buffer;
  82.                           recsz: word);
  83.  
  84. procedure put_fd_record(fd:    dos_handle;
  85.                         recn:  word;
  86.                         var buffer;
  87.                         recsz: word);
  88.  
  89. procedure put_file_record(name:  dos_filename;
  90.                           recn:  word;
  91.                           var buffer;
  92.                           recsz: word);
  93.  
  94. function within_time_range(st,en: anystring): boolean;
  95.  
  96. procedure dampen(limit: integer);
  97.  
  98.